COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION LN(80),I(200)
C00004 ENDMK
C⊗;
	DIMENSION LN(80),I(200)
1	FORMAT(80A1)
2	FORMAT(1X,80A1)
3	FORMAT(' TYPE FILE NAME - ',$)
4	FORMAT(A5)
5	FORMAT(' TYPE INST. NAME ¬ ',$)
6	FORMAT(' TYPE NAMES OF DUPLICATES (<CR>=DONE)'/)
7	FORMAT(' TYPE OUTPUT FILE NAME - ',$)
	TYPE 3
	ACCEPT 4,NAME
	CALL IFILE(21,NAME)
	TYPE 7
	ACCEPT 4,NAME
	CALL OFILE(1,NAME)
	READ(21,4)K
	IF(K.EQ.'COMME')GO TO 9
	REREAD 1,LN
	GO TO 10
9	READ(21,1)LN
	IF(LN(3).NE.';')GO TO 9
10	N=1
	ND=1
8	TYPE 5
	ACCEPT 1,(I(K),K=N,N+4)
	TYPE 6
11	ACCEPT 1,(ID(K),K=ND,ND+4)
	IF(ID(ND).EQ.' ')GO TO 12
	ND=ND+5
	GO TO 11
12	READ(21,1)LN
	DO 13 K=1,80
	IF(LN(K).EQ.';')GO TO 15
C ASSUMES NO INSTRUMENT BEGIN ON THIS LINE.
	IF(LN(K).NE.'I')GO TO 13
	IF(LN(K+1).NE.'N')GO TO 13
	IF(LN(K+8).NE.'N')GO TO 13
	IF(LN(K+9).NE.'T')GO TO 13
C ASSUMES IT FOUND 'INSTRUMENT'
	DO 14 M=K+11,80